The Uninvited Press Kit/THE UNINVITED.iso/pc/program.dxr/Internal_39_Flash Navigaton.ls

Text File | 2008-12-30 | 1.5 KB | 56 lines

property gowhere, soundMember, soundChannel, loops, pCursorChange, pCursorChoice

on getBehaviorDescription me
  return "Rollover,Sound, Marker & Cursor" & RETURN & RETURN & "Just place on Sprite and fill-in Properties"
end

on getBehaviorTooltip me
  return "Use with any Flash sprite member. Fill-in destination"
end

on getPropertyDescriptionList me
  xlist = [:]
  addProp(xlist, #gowhere, [#comment: "Navigate to which Frame Label?:", #format: #marker, #default: #bitmap])
  addProp(xlist, #soundMember, [#comment: "Sound to play", #format: #sound, #default: VOID])
  addProp(xlist, #soundChannel, [#comment: "Sound channel", #format: #integer, #default: 3, #range: [1, 2, 3, 4]])
  addProp(xlist, #loops, [#comment: "How many loops:", #format: #integer, #default: 1, #range: [1, 2, 3]])
  addProp(xlist, #pCursorChoice, [#default: 1, #format: #boolean, #comment: "Do you want a cursor change?"])
  addProp(xlist, #pCursorChange, [#format: #cursor, #comment: "Cursor to change to", #default: 280])
  return xlist
end

on beginSprite me
  mySprite = sprite(me.spriteNum)
end

on changeCur
  if pCursorChoice = 1 then
    cursor(pCursorChange)
  else
    cursor(0)
  end if
end

on playMySound me
  soundStatus = sound(soundChannel)
  if soundStatus = 4 then
    sound(soundChannel).play()
  else
    sound(soundChannel).play([#member: soundMember, #loopCount: loops])
  end if
end

on mouseUp me
  playMySound()
  go(gowhere)
  cursor(0)
end

on mouseEnter me
  changeCur()
end

on mouseLeave me
  cursor(0)
end